home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Text / HTML / HTMLEXT / mod / Mailer / yam.mod
Encoding:
Text File  |  2000-02-12  |  2.7 KB  |  121 lines
  1. /* $VER: HTMLEXT Modul: yam.mod Rev.016 by Juan Manuel Wehrli 1999 - 2000
  2.    Voraussetzung: YAM V2.x
  3.  */
  4.  
  5. if ~show("L",rexxreqtools.library) then do
  6.         call addlib("rexxreqtools.library",0,-30,0)
  7. end
  8. if ~show("L",rexxtricks.library) then do
  9.         call addlib("rexxtricks.library",0,-30,0)
  10. end
  11.  
  12. NL = '0a'x
  13.  
  14. PARSE ARG befehl option
  15. OPTIONS RESULTS
  16.  
  17. ADDRESS COMMAND
  18.  
  19. 'date >env:.htmlext.dat'
  20. dat = GETENV(".htmlext.dat")
  21. emad = GETENV(".htmlext.emad")
  22. from = GETENV(".htmlext.from")
  23. subj = GETENV(".htmlext.subj")
  24. subj = STRIP(subj)
  25. suite = GETENV(".htmlext.suite")
  26.  
  27. if befehl = WRITEFIRST then do
  28.     if ~show('P','YAM') then do
  29.         'c:WBRun <>NIL: YAM:YAM'
  30.         "sys:rexxc/waitforport YAM"
  31.     end
  32.     ADDRESS "YAM"
  33.     'MAILWRITE'
  34.     if emad ~= "" then do
  35.         'WRITETO 'emad
  36.     end
  37.     'WRITESUBJECT "'subj' vom 'dat'"'
  38.     WRITEATTACH option
  39. end
  40.  
  41. if befehl = WRITEAUTOFIRST then do
  42.     if ~show('P','YAM') then do
  43.         'c:WBRun <>NIL: YAM:YAM'
  44.         "sys:rexxc/waitforport YAM"
  45.     end
  46.     ADDRESS "YAM"
  47.     'MAILWRITE'
  48.     'WRITETO 'emad
  49.     'WRITESUBJECT "'subj' 'dat'"'
  50.     WRITEATTACH option "History"
  51.     user = GETENV(.htmlext.user)
  52.     if open("f","t:htmlext.mes","w") then do
  53.         call writeln("f",'Update von: 'user)
  54.         call writeln("f"," ")
  55.         call writeln("f","An diesem E-Mail ist die History beigefügt.")
  56.         call writeln("f"," ")
  57.         call writeln("f","(Auto Update)")
  58.         call close("f")
  59.         ADDRESS "YAM" 'WRITELETTER "t:htmlext.mes" NOSIG'
  60.     end
  61. end
  62.  
  63. if befehl = LIBUPDATE then do
  64.     if ~show('P','YAM') then do
  65.         'c:WBRun <>NIL: YAM:YAM'
  66.         "sys:rexxc/waitforport YAM"
  67.     end
  68.     ADDRESS "YAM"
  69.     'MAILWRITE'
  70.     'WRITETO 'emad
  71.     'WRITESUBJECT "'subj' 'dat'"'
  72.     'WRITEATTACH ' || option || ' "HTMLEXT Library Update"'
  73.     user = GETENV(.htmlext.user)
  74.     if open("f","t:htmlext.mes","w") then do
  75.         call writeln("f",'Update von: 'user)
  76.         call writeln("f"," ")
  77.         call writeln("f","An diesem E-Mail ist das HTMLEXT Library Uppdate beigefügt.")
  78.         call writeln("f"," ")
  79.         call writeln("f","(Auto Update)")
  80.         call close("f")
  81.         ADDRESS "YAM" 'WRITELETTER "t:htmlext.mes" NOSIG'
  82.     end
  83. end
  84.  
  85. if befehl = WRITEREST then do
  86.     if ~show('P','YAM') then do
  87.         'c:WBRun <>NIL: YAM:YAM'
  88.         "sys:rexxc/waitforport YAM"
  89.     end
  90.     ADDRESS "YAM"
  91.     'WRITEATTACH ' || option
  92. end
  93.  
  94. if befehl = SUPPORT then do
  95.     if ~show('P','YAM') then do
  96.         'c:WBRun <>NIL: YAM:YAM'
  97.         "sys:rexxc/waitforport YAM"
  98.     end
  99.     ADDRESS "YAM"
  100.     'MAILWRITE'
  101.     'WRITETO 'emad
  102.     'WRITESUBJECT "'subj' vom 'dat'"'
  103. end
  104.  
  105. if befehl = WRITEHIST then do
  106.     if ~show('P','YAM') then do
  107.         'c:WBRun <>NIL: YAM:YAM'
  108.         "sys:rexxc/waitforport YAM"
  109.     end
  110.     ADDRESS "YAM"
  111.     'MAILWRITE'
  112.     if emad ~= "" then do
  113.         'WRITETO 'emad
  114.     end
  115.     'WRITESUBJECT "'subj' History vom 'dat'"'
  116.     'WRITEFROM 'from
  117.     'WRITEATTACH ' || option || ' "' || suite || ' History vom ' || dat || '"'
  118.     'WRITELETTER "t:htmlext/mail.txt" NOSIG'
  119. end
  120.  
  121.